Retrieving Data to XML

Description

Create an SQL::Connection object, select data from a server, and convert it to XML.

You can select data from a server and convert it to XML. First, create a SQL::Connection object.

dim conn as SQL::Connection
dim data as C
dim qry as C
qry = "SELECT * FROM customers"

Open the connection. In the example below, we are using the AADemo-Northwind connection string, which can be created from the AlphaDAO Connections dialog in Alpha Anywhere.

? conn.open("::Name::AADemo-Northwind")
= .T.

Get the data. The [SQL::Connection toXML] function will retrieve the query results and format them as an XML object.

data = conn.ToXML(qry)

The first few lines of the generated XML along with the first record are shown below:

? data
=<DOCUMENT>
	<ROW>
		<CustomerID>ALFKI</CustomerID>
		<CompanyName>Alfreds Futterkiste</CompanyName>
		<ContactName>Maria Anders</ContactName>
		<ContactTitle>Sales Representative</ContactTitle>
		<Address>Obere Str. 57</Address>
		<City>Berlin</City>
		<Region></Region>
		<PostalCode>12209</PostalCode>
		<Country>Germany</Country>
		<Phone>030-0074321</Phone>
		<Fax>030-0076545</Fax>
		<Image></Image>
		<ImageThumbnail></ImageThumbnail>
	</ROW>
...

After data has been retrieved, close the connection.

conn.close()